home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)m9.d64 / file_explain (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  142 lines
  1. 10 REM" PONZO/WATERLOO/83
  2. 20 [143]" FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  3. 30 REM" FILE/EXPLAIN-C64
  4. 40 [143]" FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  5. 1000 REM EXPLAIN
  6. 1001 POKE53280,2:POKE53281,15:PRINT"[144]"
  7. 1005 L$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":DR$=STR$(PEEK(704))
  8. 1010 PRINTCHR$(14):PRINT"[147][212]HERE ARE 5 [198][201][204][197]/ PROGRAMS:":PRINTL$
  9. 1020 PRINT"  [198][201][204][197]/[194][207][207][212]  [146] [198][201][204][197]/[205][193][211][212][197][210][146] [198][201][204][197]/[197][216][208][204][193][201][206]"
  10. 1025 PRINT"      [198][201][204][197]/[212][201][212][204][197][211][146]  [198][201][204][197]/[211][207][210][212]  [146]":PRINTL$:GOSUB2000
  11. 1030 PRINT"[147][212][207] [211][212][193][210][212][157][157][157][157][157][157][157][157][184][184][184][184][184][184][184][184][145]:[204][207][193][196] & [210][213][206] [198][201][204][197]/[194][207][207][212][146]:"
  12. 1035 PRINT"(WHICH [204][207][193][196]S [198][201][204][197]/[211][207][210][212][146] & [198][201][204][197]/[205][193][211][212][197][210][146])."
  13. 1040 PRINT"[201]N [198][201][204][197]/[205][193][211][212][197][210][146], SELECT MENU ITEM 7[157][184][145]."
  14. 1050 PRINT"[212]HIS ALLOWS YOU TO CREATE A NUMBER OF"
  15. 1060 PRINT"[212][201][212][204][197][211] SUCH AS 'NAME', 'ADDRESS', ETC."
  16. 1070 PRINT" ([198][201][204][197]/[205][193][211][212][197][210][146] LOADS [198][201][204][197]/[212][201][212][204][197][211][146] FROM"
  17. 1080 PRINT" DISK TO DO THIS)."
  18. 1090 PRINT"[215]HEN SATISFIED WITH THE [212][201][212][204][197][211] YOU"
  19. 1100 PRINT"HAVE CREATED, [198][201][204][197]/[212][201][212][204][197][211][146] WILL SAVE"
  20. 1110 PRINT"THESE [212][201][212][204][197][211] IN A [212][201][212][204][197]-[198][201][204][197]"
  21. 1120 PRINT"(WITH A NAME YOU SPECIFY) THEN"
  22. 1130 PRINT"WILL RE[204][207][193][196] [198][201][204][197]/[205][193][211][212][197][210][146].":GOSUB2000
  23. 1140 PRINT"[147][211][213][194][211][197][209][213][197][206][212][204][217]":PRINT"[184][184][184][184][184][184][184][184][184][184][184][184]"
  24. 1150 PRINT"[210][213][206] [198][201][204][197]/[205][193][211][212][197][210][146] AND HIT [211][208][193][195][197][157][157][157][157][157][184][184][184][184][184][145]."
  25. 1160 PRINT"[217]OU WILL BE ASKED FOR THE NAME OF "
  26. 1170 PRINT"THE [212][201][212][204][197]-[198][201][204][197] YOU WISH TO [204][207][193][196]."
  27. 1180 PRINT"[197]NTER THE NAME & DRIVE AND, DURING"
  28. 1190 PRINT"[204][207][193][196]ING, THE [212][201][212][204][197][211] YOU HAVE CREATED"
  29. 1195 PRINT"WILL BE DISPLAYED."
  30. 1200 PRINT"[217]OU MAY THEN CHOOSE MENU ITEM 1[157][184]"
  31. 1210 PRINT"AND ENTER [196][193][212][193] UNDER THE VARIOUS"
  32. 1220 PRINT"TITLES 'NAME','ADDRESS', ETC WHICH"
  33. 1230 PRINT"YOU CREATED ON YOUR [212][201][212][204][197]-[198][201][204][197].":GOSUB2000
  34. 1240 PRINT"[147][205]ENU ITEMS INCLUDE [196][193][212][193] DISPLAY,"
  35. 1250 PRINT"[210][197][195][193][204][204] & [211][193][214][197], [211][197][193][210][195][200] & [211][207][210][212]."
  36. 1260 PRINT"[194]ECAUSE [211][207][210][212]ING IN [194][193][211][201][195] IS SLOW,"
  37. 1270 PRINT"A MACHINE LANGUAGE ROUTINE CALLED"
  38. 1280 PRINT"[198][201][204][197]/[211][207][210][212][146] IS [204][207][193][196][197][196] INTO THE [195]64"
  39. 1290 PRINT"WHEN [198][201][204][197]/[194][207][207][212][146] IS FIRST [210][213][206].":PRINT"(..IT'S A 'QUICKSORT'..)
  40. 1300 [141]5000:[153]"LOAD(null)OU MAY WISH TO HAVE CERTAIN"
  41. 1310 [153]"STR$ATN(null)ATN COMPUTED FROM OTHERWAIT STR$ATN(null)ATN.":[153]L$:[153]"EXAMPLE:"
  42. 1320 [153]"FINAL SCORE=AVERAGE OF EARLIER SCORES":[153]L$
  43. 1330 [153]"(null)OU MAY, DURING CREATION OF THE"
  44. 1340 [153]"(null)RIGHT$(null)(null)VAL-ASCRIGHT$(null)VAL, DEFINE RELATIONS BETWEEN"
  45. 1350 [153]"THE VALUES OF CERTAIN STR$ATN(null)ATN.":[153]L$:[153]"EXAMPLE:"
  46. 1360 [153]"V(4)=(V(1)+V(2)+V(3))/3WAIT"
  47. 1370 [153]L$:[153]"(null)HESE RELATIONS CONSTITUTE A"
  48. 1380 [153]"(null)(null)VAL(null) (null)(null)PEEK(null)(null)(null)(null)RIGHT$(null)VAL.":[141]2000:[153]"LOAD(null)(null)VAL(null) (null)(null)PEEK(null)(null)(null)(null)RIGHT$(null)VAL"
  49. 1390 [153]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[153]"STR$URING CREATION OF A (null)RIGHT$(null)(null)VAL-ASCRIGHT$(null)VAL YOU"
  50. 1400 [153]"WILL BE ASKED IF THE STR$ATN(null)ATN ASSOCIATED"
  51. 1410 [153]"WITH A PARTICULAR (null)RIGHT$(null)(null)VAL, LIKE 'NAME',"
  52. 1420 [153]"IS AWAITLPHABETIC OR NWAITUMERIC."
  53. 1430 [153]"(null)NLY (null)(null)(null)VAL(null)RIGHT$LEN STR$ATN(null)ATN SHOULD APPEAR IN"
  54. 1440 [153]"YOUR (null)(null)VAL(null) (null)(null)PEEK(null)(null)(null)(null)RIGHT$(null)VAL."
  55. 1450 [153]"(null)HE VALUES OF THE NWAITUMERIC STR$ATN(null)ATN ARE"
  56. 1460 [153]"REFERRED TO AS V(1),V(2), ETC."
  57. 1470 [153]"(null)ENU ITEM 4CMDFREON WILL PERFORM THE"
  58. 1480 [153]"CALCULATIONS IN YOUR (null)(null)PEEK(null)(null)(null)(null)RIGHT$(null)VAL.":[141]2000
  59. 1500 [153]"LOADATNFTER ENTERING THE STR$ATN(null)ATN (UNDER YOUR"
  60. 1510 [153]"(null)RIGHT$(null)(null)VAL(null) OF 'NAME','ADDRESS',ETC.)"
  61. 1520 [153]"CHOOSE MENU ITEM 3CMDFREON TO (null)ATN(null)VAL"
  62. 1530 [153]"THE STR$ATN(null)ATN IN A STR$ATN(null)ATN-ASCRIGHT$(null)VAL WITH A NAME"
  63. 1540 [153]"YOU SPECIFY."
  64. 1550 [153]"(null)(null)PEEK(null)VAL(null)(null)VAL(null)(null)(null)(null)...YOU WILL CHOOSE ITEM"
  65. 1560 [153]"3CMDFREON TO (null)(null)ATNSTR$ (OR (null)VALLENATN(null)(null)) THIS STR$ATN(null)ATN FOR"
  66. 1570 [153]"MODIFICATIONS,ADDITIONS,SORTING,ETC."
  67. 1580 [153]"(null)(null)(null)VALCMDCMDCMDCMDFREFREFREFREON:ATNFTER (null)(null)(null)(null)RIGHT$(null)CHR$ THE STR$ATN(null)ATN YOU (null)LEFT$(null)(null)(null)STR$"
  68. 1590 [153]"(null)ATN(null)VAL THE STR$ATN(null)ATN IN (null)(null)(null)(null)VALSTR$ (null)(null)STR$VAL(null)!":[141]2000
  69. 1600 [153]"LOADSTR$RIGHT$(null)(null)(null)CMDCMDCMDCMDCMDFREFREFREFREFRE"
  70. 1610 [153]"(null)OU MUST HAVE ATN(null)(null) OF THE ASCRIGHT$(null)VAL/ PROGRAMS"
  71. 1620 [153]"ON ONE DISK, INITIALLY. LEFT$OWEVER, AFTER"
  72. 1630 [153]"CREATING A (null)RIGHT$(null)(null)VAL-ASCRIGHT$(null)VAL YOU MAY WISH"
  73. 1640 [153]"TO HAVE DISKS WITH ONLY:"
  74. 1650 [153]"ASCRIGHT$(null)VAL/PEEK(null)(null)(null)WAIT & ASCRIGHT$(null)VAL/(null)ATN(null)(null)VAL(null)WAIT & ASCRIGHT$(null)VAL/(null)(null)(null)(null)WAIT,"
  75. 1660 [153]"YOUR (null)RIGHT$(null)(null)VAL-ASCRIGHT$(null)VAL ('NAME','ADDRESS',ETC.)"
  76. 1670 [153]"AND ANY STR$ATN(null)ATN-ASCRIGHT$(null)VALS YOU GENERATE.":C$[178][199](34):P$[178]"PRG":S$[178]"SEQ"
  77. 1680 [153]"                         EXAMPLECMDCMDCMDCMDCMDCMDCMDUSRUSRUSRUSRUSRUSRUSRONONONON"
  78. 1690 [153]C$"FILE/BOOT"C$,P$:[153]C$"FILE/MASTER"C$,P$:[153]C$"FILE/SORT"C$,P$
  79. 1700 [153]C$"SALES TITLES"C$,S$:[153]C$"JANUARY SALES"C$,S$
  80. 1710 [153]C$"FEBRUARY SALES"C$,S$:[141]2000:[141]6000
  81. 1800 [153]"LOADLOADING ASCRIGHT$(null)VAL/(null)ATN(null)(null)VAL(null)..."
  82. 1980 FM$[178]"FILE/MASTER*"
  83. 1990 [147]DR$[170]":"[170]FM$,8:[138]
  84. 2000 [153]"(null)VAL(null)(null)(null)(null)WAIT TO CONTINUE.."
  85. 2010 [161]A$:[139]A$[179][177]""[167]2010
  86. 2020 [161]A$:[139]A$[178]""[167]2020
  87. 2030 [139]A$[179][177][199](13)[167]2010
  88. 2040 [142]
  89. 5000 [141]2000:[153]"LOAD(null)(null)(null)VALCMDCMDCMDCMDFREFREFREFREON:";
  90. 5001 [153]"ABOUT (null)VALATN(null)LENLEFT$ (MENU ITEM 6CMDFREON):"
  91. 5002 [153]"(null)OU MAY (null)VALATN(null)LENLEFT$ THROUGH THE STR$ATN(null)ATN FOR"
  92. 5003 [153]"ANY RECORD WHERE THE 'NAME' STARTS"
  93. 5004 [153]"WITH '(null)' AND THE 'ADDRESS' STARTS"
  94. 5005 [153]"WITH '49'."
  95. 5006 [153]"(null)HE (null)VALATN(null)LENLEFT$ CAN BE THROUGH JUST THE"
  96. 5007 [153]"STR$ATN(null)ATN IN THE LEN64 OR ATN(null)(null) STR$ATN(null)ATN ON THE DISK."
  97. 5008 [153]"(null)HEN ASKED FOR THE (null)VALATN(null)LENLEFT$ (null)RIGHT$(null)(null)VAL(null)"
  98. 5009 [153]"JUST CHOOSE 'NAME' AND 'ADDRESS', AND"
  99. 5010 [153]"ENTER '(null)' AND '49'.":[141]2000:[142]
  100. 6000 [153]"LOAD(null)VAL(null)RIGHT$VAL(null):":C$[178][199](34)
  101. 6010 [153]"1WAIT:(null)(null)ATNSTR$ AND (null)(null)(null) "C$"ASCRIGHT$(null)VAL/PEEK(null)(null)(null)"C$"."
  102. 6020 [153]"2WAIT:ATNFTER "C$"ASCRIGHT$(null)VAL/(null)ATN(null)(null)VAL(null)"C$" IS LOADED "
  103. 6030 [153]"  CHOOSE MENU ITEM 7WAIT=LEN(null)VALATN(null)VAL (null)RIGHT$(null)(null)VAL ASCRIGHT$(null)VAL."
  104. 6040 [153]"3WAIT:(null)ELECT TITLES APPROPRIATE FOR YOUR"
  105. 6050 [153]"  APPLICATION (STAMP/COIN COLLECTION,"
  106. 6060 [153]"  BIRTHDAYS, PHONE NUMBERS,ETC.)."
  107. 6070 [153]"4WAIT:(null)HEN BACK IN "C$"ASCRIGHT$(null)VAL/(null)ATN(null)(null)VAL(null)"C$" AGAIN"
  108. 6080 [153]"  CHOOSE MENU ITEM 1WAIT TO ENTER DATA"
  109. 6090 [153]" UNDER THE TITLES YOU HAVE CREATED."
  110. 6100 [153]"5WAIT:LENHOOSE MENU ITEM 3WAIT TO (null)ATN(null)VAL THE DATA."
  111. 6110 [153]"(null)(null)(null)VALCMDCMDCMDCMDFREFREFREFREON:@=THE "C$"AT-KEY"C$" NORMALLY"
  112. 6120 [153]"    MEANS 'QUIT'."
  113. 6130 [141]2000
  114. 6140 [153]"LOADASCRIGHT$(null)ATN(null)(null)(null):CMDCMDCMDCMDCMDCMDCMDCMDFREFREFREFREFREFREFRE"
  115. 6150 [153]"ATNFTER A (null)(null)(null)(null) OR A STR$VAL(null)VAL(null)VAL THE STR$ATN(null)ATN IS"
  116. 6160 [153]"(null)(null)(null)CMDCMDCMDFREFREFREON REARRANGED (THIS TAKES TOO LONG)."
  117. 6170 [153]"RIGHT$NSTEAD, EACH RECORD HAS A 'POINTER'."
  118. 6180 [153]"(null)RIGINALLY (AFTER YOU (null)(null)(null)VAL OR (null)(null)ATNSTR$)"
  119. 6190 [153]"THESE 'POINTERS' POINT TO THE STR$ATN(null)ATN"
  120. 6200 [153]"IN THE ORDER IN WHICH THEY WERE"
  121. 6210 [153]"(null)(null)(null)VALD OR (null)(null)ATNSTR$ED."
  122. 6220 [153]"LEFT$OWEVER, AFTER A (null)(null)(null)(null) OR STR$VAL(null)VAL(null)VAL THE"
  123. 6230 [153]"'POINTERS' ARE REARRANGED!":[141]2000
  124. 6240 [153]"LOAD(null)OU MAY STR$RIGHT$(null)(null)(null)ATN(null) THE STR$ATN(null)ATN AND SEE THAT"
  125. 6241 [153]"IT HAS A NEW ORDER."
  126. 6242 [153]"(ATNFTER STR$VAL(null)VAL(null)VALS, THE NEW ORDER OMITS"
  127. 6243 [153]" THE STR$VAL(null)VAL(null)VALD RECORDS)."
  128. 6245 [153]"RIGHT$T IS THEN A GOOD IDEA TO (null)ATN(null)VAL THE"
  129. 6250 [153]"STR$ATN(null)ATN AFTER A (null)(null)(null)(null) OR AFTER STR$VAL(null)VAL(null)VALS."
  130. 6260 [153]"(null)OU MAY THEN (null)VALLENATN(null)(null) THE STR$ATN(null)ATN ASCRIGHT$(null)VAL AND"
  131. 6270 [153]"IT WILL BE (null)(null)ATNSTR$ED IN THE NEW ORDER FOR"
  132. 6280 [153]"FURTHER EDITING, ETC.":[141]2000
  133. 6300 [153]"LOADATN(null)(null)(null):CMDCMDCMDCMDCMDFREFREFREFRE"
  134. 6310 [153]"(null)HEN (null)VALATN(null)LENLEFT$ING ALLCMDCMDCMDFREFREFREON FILES ON"
  135. 6320 [153]"DISK, EACH ASCRIGHT$(null)VAL IS (null)(null)ATNSTR$ED AND THE"
  136. 6330 [153]"(null)VALATN(null)LENLEFT$ PERFORMED. (null)HAT MEANS THAT ANY"
  137. 6340 [153]"ASCRIGHT$(null)VAL CURRENTLY IN THE LEN64 IS (null)(null)(null)(null)!CMDCMDCMDCMDCMDFREFREFREFRE"
  138. 6350 [153]"(null)(null)....(null)ATN(null)VAL THE ASCRIGHT$(null)VAL IN THE LEN64 PEEKVALASC(null)(null)VALCMDCMDCMDCMDCMDCMDFREFREFREFREFREFRE"
  139. 6360 [153]"(null)VALATN(null)LENLEFT$ING ALL ASCRIGHT$(null)VAL(null).":[141]2000
  140. 6370 [153]"LOAD....PLAY WITH ASCRIGHT$(null)VAL/(null)ATN(null)(null)VAL(null) BEFORE"
  141. 6380 [153]"USING IT FOR ANY IMPORTANT STUFF...":[141]2000:[142]
  142.